home *** CD-ROM | disk | FTP | other *** search
- -- background: 4754 from stack: in
- -- bmap block id: 5144
- -- flags: 0000
- -- background id: 0
- -- name: About
- ----- HyperTalk script -----
- on openCard
- set icon of background button id 7 to short name of this card
- set name of background button id 7 to short name of this card
- end openCard
-
- on openBackground
- global interactiveDemo
- put true into interactiveDemo
- end openBackground
-
- on doMenu menuItem
- lock screen
- if menuItem is "Help" then
- go to last card of this background
- unlock screen with dissolve fast
- else if menuItem is "First" then
- go to first card of this background
- unlock screen with visual wipe right
- else if menuItem is "Prev" then
- if id of first card of this background is id of this card then
- go to card (the number of cards of this bg - 2) of this bg
- else go prev
- unlock screen with visual wipe right
- else if menuItem is "Next" then
- if id of card (the number of cards of this bg - 2) of this background is id of this card then
- go to first card of this background
- else go next
- unlock screen with visual wipe left
- else if menuItem is "Last" then
- go to card (the number of cards of this bg - 2) of this bg
- unlock screen with visual wipe left
- else
- unlock screen
- pass doMenu -- OK
- end if
- end doMenu
-
- on arrowKey direction
- if direction is "Left" then
- doMenu "Prev"
- else if direction is "Right" then
- doMenu "Next"
- else if direction is "Up" then
- lock screen
- go to card "Demo Shell"
- unlock screen
- else if direction is "Down" then
- -- do nothing
- end if
- end arrowKey
-
- on grayPicture cardPict
- push card
- get the userLevel
- set the userLevel to 3
- if not cardPict then set the editBkgnd to true
- choose select tool
- doMenu "Select All"
- doMenu "Copy Picture"
- go to card short name of this background of background "Information"
- set the editBkgnd to true
- doMenu "Paste Picture"
- choose browse tool
- set the userLevel to it
- end grayPicture
-
- --on type typeText
- put empty into the selection
- repeat with index = 1 to the number of chars in typeText
- play boing tempo 500 "c7s"
- put char index of typeText after the selection
- end repeat
- --end type
-
- on sortBackground
- lock screen
- set the cursor to watch
- repeat with i = the number of cards of this bg - 1 down to 3
- repeat with j = 2 to i - 1
- if short name of card j of this bg > short name of card j + 1 of this bg then
- go to card j of this bg
- doMenu "Cut Card"
- doMenu "Paste Card"
- end if
- end repeat
- end repeat
- unlock screen
- end sortBackground
-
-
- -- part 1 (button)
- -- low flags: 00
- -- high flags: A000
- -- rect: left=269 top=37 right=83 bottom=355
- -- title width / last selected line: 0
- -- icon id / first selected line: 5000 / 5000
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Mac School® Shell
- ----- HyperTalk script -----
- on mouseUp
- visual iris close
- go to card short name of me
- end mouseUp
-
-
-
- -- part 2 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=420 top=294 right=330 bottom=444
- -- title width / last selected line: 0
- -- icon id / first selected line: 5051 / 5051
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Previous
- ----- HyperTalk script -----
- on mouseUp
- lock screen
- set the scroll of field "text" to 0
- if the optionKey is down then
- doMenu "First"
- else
- doMenu "Prev"
- end if
- unlock screen with visual wipe right
- end mouseUp
-
-
-
- -- part 3 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=474 top=294 right=330 bottom=498
- -- title width / last selected line: 0
- -- icon id / first selected line: 5052 / 5052
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Next
- ----- HyperTalk script -----
- on mouseUp
- lock screen
- set the scroll of field "text" to 0
- if the optionKey is down then
- doMenu "Last"
- else
- doMenu "Next"
- end if
- unlock screen with visual wipe left
- end mouseUp
-
-
-
- -- part 4 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=440 top=113 right=149 bottom=478
- -- title width / last selected line: 0
- -- icon id / first selected line: 5050 / 5050
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Home
- ----- HyperTalk script -----
- on mouseUp
- visual dissolve to white
- visual dissolve
- go home
- end mouseUp
-
-
-
- -- part 5 (field)
- -- low flags: 01
- -- high flags: 0002
- -- rect: left=10 top=110 right=135 bottom=413
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 3
- -- text size: 18
- -- style flags: 256
- -- line height: 24
- -- part name: Title
-
-
- -- part 6 (field)
- -- low flags: 01
- -- high flags: 0007
- -- rect: left=10 top=138 right=332 bottom=413
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 2
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: text
-
-
- -- part 7 (button)
- -- low flags: 00
- -- high flags: A000
- -- rect: left=377 top=37 right=83 bottom=463
- -- title width / last selected line: 0
- -- icon id / first selected line: 5005 / 5005
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Course Details
- ----- HyperTalk script -----
- on mouseUp
- lock screen
- go to background short name of me
- if the result is "No Such Card" then beep
- else unlock screen with visual zoom open
- end mouseUp
-
-
-
-
-
-
- -- part 8 (button)
- -- low flags: 00
- -- high flags: A000
- -- rect: left=418 top=168 right=214 bottom=500
- -- title width / last selected line: 0
- -- icon id / first selected line: 5076 / 5076
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Overview
- ----- HyperTalk script -----
- on mouseUp
- push card
- visual iris open
- go to card (short name of this card) of background "Module Overviews"
- if the result is "No such card" then beep
- end mouseUp
-
-
-
- -- part 9 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=449 top=303 right=321 bottom=469
- -- title width / last selected line: 0
- -- icon id / first selected line: 5074 / 5074
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Help
- ----- HyperTalk script -----
- on mouseUp
- lock screen
- go to last card of this background
- unlock screen with dissolve fast
- end mouseUp
-
-
-
- -- part 10 (button)
- -- low flags: 00
- -- high flags: A000
- -- rect: left=418 top=230 right=276 bottom=500
- -- title width / last selected line: 0
- -- icon id / first selected line: 5075 / 5075
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Rolling Demo
- ----- HyperTalk script -----
- on mouseUp
- global interactiveDemo
- put false into interactiveDemo
- if the heapSpace < 140000 then
- answer "Not enough memory to run demo."
- else rollingDemo
- end mouseUp
-
-